(defun c:initatoms ()
  (if (setq atoms-file (open "c:/acad/atoms.txt" "w"))
    (progn
      (print (atoms-family 1) atoms-file)
      (close atoms-file)
    )
  )
  (princ)
)
(defun c:getmyatoms ()
  (if (setq atoms-file (open "c:/acad/atoms.txt" "r"))
    (progn
      (SETQ my-atoms-lst NIL)
      (read-line atoms-file)
      (setq init-atoms-lst (read (read-line atoms-file)))
      (close atoms-file)
      (setq curr-atoms-lst (atoms-family 1))
      (foreach n curr-atoms-lst
        (if (member n init-atoms-lst)
          NIL
          (setq my-atoms-lst (append my-atoms-lst (list n)))
        )
      )
      (SETQ my-atoms-lst (ACAD_STRLSORT my-atoms-lst))
    )
  )
  (princ)
)
(defun c:listmyatoms ()
  (FOREACH n my-atoms-lst
    (PRINC "\n\t\t")
    (PRINC n)
    (PRINC)
  )
  (PRINC)
)
(defun c:killmyatoms ()
  (mem)
  (FOREACH n my-atoms-lst
    (SET (READ n) NIL)
  )
  (SETQ my-atoms-lst NIL)
  (GC)
  (mem)
  (PRINC)
)